use MainFile_PR

/******************************************/
/*********** FEMALE SAMPLE ****************/
/******************************************/
/* Inheritance */  
regress ParInherit MarrCousin MarrRelative MarrVillage Age AgeSq FaAge Muslim YearsEd BirthOrder MoEverAttd FaEverAttd MoAlFstMarr FaAlFstMarr  BroAtMarr SisAtMarr LParFarmland ParFarmlandMissing RainDevYearWom11 RainDevYearWom12 RainDevYearWom13  if Female==1 & LDowryVal~=., cluster(bari_num) 
est2vec Inherit, e(N r2 F) vars(MarrCousin MarrRelative MarrVillage LDowryVal LDVXAge Age AgeSq FaAge Muslim YearsEd BirthOrder MoEverAttd FaEverAttd MoAlFstMarr FaAlFstMarr  BroAtMarr SisAtMarr LParFarmland ParFarmlandMissing RainDevYearWom11 RainDevYearWom12 RainDevYearWom13 ) replace 

rename ParInherit ParInherit2
areg ParInherit   LDowryVal LDVXAge  Age AgeSq FaAge FaAlive Muslim YearsEd BirthOrder MoEverAttd FaEverAttd MoAlFstMarr FaAlFstMarr  BroAtMarr SisAtMarr LParFarmland ParFarmlandMissing RainDevYearWom11 RainDevYearWom12 RainDevYearWom13  if Female==1 & MarrCousin~=., absorb(YearMarrD5)
est2vec Inherit, addto(Inherit)

/* Transfer */ 
regress ParTransfer MarrCousin MarrRelative MarrVillage Age AgeSq FaAge Muslim YearsEd BirthOrder MoEverAttd FaEverAttd MoAlFstMarr FaAlFstMarr  BroAtMarr SisAtMarr LParFarmland ParFarmlandMissing RainDevYearWom11 RainDevYearWom12 RainDevYearWom13  if Female==1 & LDowryVal~=., cluster(bari_num)
est2vec Inherit, addto(Inherit)

rename ParTransfer ParTransfer2
areg ParTransfer  LDowryVal LDVXAge    Age AgeSq FaAge FaAlive  Muslim YearsEd BirthOrder MoEverAttd FaEverAttd MoAlFstMarr FaAlFstMarr  BroAtMarr SisAtMarr LParFarmland ParFarmlandMissing RainDevYearWom11 RainDevYearWom12 RainDevYearWom13 if Female==1 & MarrCousin~=., absorb(YearMarrD5)
est2vec Inherit, addto(Inherit)

/******************************************/
/*********** MALE SAMPLE *******************/
/******************************************/

/* inheritance and consanguinity */ 
rename ParInherit ParInherit4
regress ParInherit MarrCousin MarrRelative MarrVillage Age AgeSq FaAge Muslim YearsEd BirthOrder MoEverAttd FaEverAttd MoAlFstMarr FaAlFstMarr  BroAtMarr SisAtMarr LParFarmland ParFarmlandMissing if Female==0 & LDowryVal~=., cluster(bari_num)
est2vec Inherit, addto(Inherit)


/* inheritance and dowry */ 
rename ParInherit ParInherit5
areg ParInherit   LDowryVal LDVXAge  Age AgeSq FaAge FaAlive  Muslim YearsEd BirthOrder MoEverAttd FaEverAttd MoAlFstMarr FaAlFstMarr  BroAtMarr SisAtMarr LParFarmland ParFarmlandMissing if Female==0 & MarrCousin~=., absorb(YearMarrD5)
est2vec Inherit, addto(Inherit)



lab var LDVXAge "Log of dowry X Age" 
lab var LDVXAge50 "Log of dowry X Age under 50" 
lab var LDowryVal "Log of dowry value" 
lab var MarrCousin "Married a cousin"
lab var MarrRelative "Married a relative"
lab var MarrVillage "Married a non-relative within village"
lab var AgeSq "Age squared"
lab var FaAge "Father's age" 
lab var YearsEd "Years of schooling"
lab var BirthOrder "Birth order" 
lab var MoEverAttd "Mother attended school"
lab var FaEverAttd "Father attended school"
lab var MoAlFstMarr "Mother alive at marriage" 
lab var FaAlFstMarr "Father alive at marriage"
lab var BroAtMarr "Brothers alive at marriage" 
lab var SisAtMarr "Sisters alive at marriage"
lab var LParFarmland "Log parents farmland"
lab var ParFarmlandMissing "Parents farmland missing
lab var RainDevYearWom10 "Rainfall dev when woman age 10"
lab var RainDevYearWom11 "Rainfall dev when woman age 11"
lab var RainDevYearWom12 "Rainfall dev when woman age 12"
lab var RainDevYearWom13 "Rainfall dev when woman age 13"
lab var RainDevYearWom14 "Rainfall dev when woman age 14"
lab var RainDevYearWom15 "Rainfall dev when woman age 15"

est2tex Inherit, replace dropall mark(stars) fancy digits(4) label


